﻿<!-- #include file="ding.asp" -->
<!--#include file="mymin.asp"-->
<%Call Head2()
IF KEY<>0 then
	Call Error2("<card title=""出错""><p>你的权限不足！")
end if

dim pp,id
pp=request.querystring("lx")
id=request.querystring("id")
if id="" or IsNumeric(id)=False then
	Call Error2("<title>出错!</title></head><body><div class=""main320"">ID无效！")
end if
if pp="" or IsNumeric(pp)=False then
	Call Error2("<title>出错!</title></head><body><div class=""main320"">ID无效！")
end if
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_class where classid="&id,myconn,1,1

if rs.bof and rs.eof then
	notclass
else
	classright
end if

sub classright()
	If rs("br")=2 Then brCheck ="selected=""selected"""
	If rs("hide")=1 Then hideCheck = "selected=""selected"""
	if pp=0 then
%>
<title>编辑页面菜单</title></head><body><div class="main400">
名称:<%=nowml(rs("class"))%><br/>
类型:新的页面<br/>
<form method="post" action="editclasssave.asp">
请输入新页面名称<br/><input name="class1" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br">
<option value="1">自动换行</option>
<option value="2" <%=brCheck%>>不换行</option>
</select><br/>
是否隐藏:<select name="hide" value="0"><option value="0">直接显示</option><option value="1" <%=hideCheck%>>前台隐藏</option></select><br/>
显示顺序:<input name="pid" type="text" value="<%=rs("pid")%>" size="2"/><br/>
<input type="submit" value="确认提交"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="id" value="<%=id%>"/>
<input type="hidden" name="lx" value="0"/>
</form>
<%elseif pp=1 then%>
<title>编辑文章栏目</title></head><body><div class="main400">
名称:<%=nowml(rs("class"))%><br/>
类型:文章栏目<br/>
<form method="post" action="editclasssave.asp">
请输入新栏目名称<br/><input name="class1" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br">
<option value="1">自动换行</option>
<option value="2" <%=brCheck%>>不换行</option>
</select><br/>
显示顺序:<input name="pid" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide" value="0"><option value="0">直接显示</option><option value="1" <%=hideCheck%>>前台隐藏</option></select><br/>
<input type="submit" value="确认提交"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="id" value="<%=id%>"/>
<input type="hidden" name="lx" value="1"/>
<input type="hidden" name="relid" value="<%=rs("relid")%>"/>
</form>
<%elseif pp=2 then%>
<title>编辑UBB标签</title></head><body><div class="main400">
名称:<%=nowml(rs("class"))%><br/>
类型:UBB标签<br/><a href="ubbcl.asp?sid=<%=sid%>">[UBB说明]</a><br/>
<form method="post" action="editclasssave.asp">
后台标记<br/><input name="class1" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
UBB内容<br/>
<textarea name="wmltxt" cols="45" rows="20"><%=nowml(rs("wmltxt"))%></textarea><br/>
栏目后面:<select name="br">
<option value="1">自动换行</option>
<option value="2" <%=brCheck%>>不换行</option>
</select><br/>
显示顺序:<input name="pid" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide" value="0"><option value="0">直接显示</option><option value="1" <%=hideCheck%>>前台隐藏</option></select><br/>
<input type="submit" value="确认提交"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="id" value="<%=id%>"/>
<input type="hidden" name="lx" value="2"/>
</form>
<%elseif pp=3 then%>
<title>编辑论坛菜单</title></head><body><div class="main400">
名称:<%=nowml(rs("class"))%><br/>
类型:论坛菜单
<form method="post" action="editclasssave.asp">
新的名称<br/><input name="class1" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br">
<option value="1">自动换行</option>
<option value="2" <%=brCheck%>>不换行</option>
</select><br/>
显示顺序:<input name="pid" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide" value="0"><option value="0">直接显示</option><option value="1" <%=hideCheck%>>前台隐藏</option></select><br/>
<input type="submit" value="确认提交"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="id" value="<%=id%>"/>
<input type="hidden" name="lx" value="3"/>
<input type="hidden" name="relid" value="<%=rs("relid")%>"/>
</form>
<%elseif pp=9 then%>
<title>修改WML标签</title></head><body><div class="main400">
类型:WML标签<br/>
<form method="post" action="editclasssave.asp">
新WML标签标记:<br/><input name="class1" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
新WML标签内容:<br/>
<textarea name="wmltxt" cols="45" rows="20"><%=nowml(rs("wmltxt"))%></textarea><br/>
栏目后面:<select name="br">
<option value="1">自动换行</option>
<option value="2" <%=brCheck%>>不换行</option>
</select><br/>
显示顺序:<input name="pid" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide" value="0"><option value="0">直接显示</option><option value="1" <%=hideCheck%>>前台隐藏</option></select><br/>
<input type="submit" value="确认提交"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="id" value="<%=id%>"/>
<input type="hidden" name="lx" value="9"/>
</form>
<br/>提示:WML链接支持[sid]防断线
<%elseif pp=8 then%>
<title>编辑随机广告</title></head><body><div class="main400">
名称:<%=nowml(rs("class"))%><br/>
类型:随机广告<br/>
<form method="post" action="editclasssave.asp">
新广告名称标记:<br/><input name="class1" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br">
<option value="1">自动换行</option>
<option value="2" <%=brCheck%>>不换行</option>
</select><br/>
显示顺序:<input name="pid" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide" value="0"><option value="0">直接显示</option><option value="1" <%=hideCheck%>>前台隐藏</option></select><br/>
<input type="submit" value="确认提交"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="id" value="<%=id%>"/>
<input type="hidden" name="lx" value="8"/>
</form>
<%else
Dim cname
if pp=10 then
	cname="最新文章"
elseif pp=11 then
	cname="最热文章"
elseif pp=12 then
	cname="随机文章"
elseif pp=13 then
	cname="最新帖子"
elseif pp=14 then
	cname="最热帖子"
elseif pp=15 then
	cname="随机帖子"
elseif pp=16 then
	cname="推荐文章"
elseif pp=17 then
	cname="精华帖子"
elseif pp=19 then
	cname="站内搜框"
elseif pp=20 then
	cname="网站群聊"
end if
relid=rs("relid")
If relid=0 Then relid=rs("wmltxt")
%>
<title>编辑调用栏目</title></head><body><div class="main400">
名称:<%=nowml(rs("class"))%><br/>
类型:调用栏目-<%=cname%><br/>
<form method="post" action="editclasssave.asp">
调用栏目名:<br/><input name="class1" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
调用栏目(留空则为全部栏目):<br/>栏目ID<input name="wmltxt" title="条数" value="<%=relid%>"/><br/>
调用条数:<br/><input name="num" title="条数" value="<%=rs("num")%>"/><br/>
栏目后面:<select name="br">
<option value="1">自动换行</option>
<option value="2" <%=brCheck%>>不换行</option>
</select><br/>
显示顺序:<input name="pid" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide" value="0"><option value="0">直接显示</option><option value="1" <%=hideCheck%>>前台隐藏</option></select><br/>
<input type="submit" value="确认提交"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="id" value="<%=id%>"/>
<input type="hidden" name="lx" value="<%=pp%>"/>
<input type="hidden" name="relid" value="0"/>
</form>
调用多个栏目ID请用英文逗号(,)隔开
<%end if%>
<br/>----------<br/>
<% if rs("parent")<>0 then %>
<a href='Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=pp%>'>[栏目分类]</a><br/>
<%end if%>
<a href='class.asp?sid=<%=sid%>'>[栏目分类]</a>
<%
End Sub

sub notclass()%>
<card title="出错了">
<p align="left">
没有这个栏目!
<br/>----------<br/>
<a href='class.asp?sid=<%=sid%>'>返回栏目管理</a><%
End Sub
rs.close
set rs=nothing
call rootLast2%>